home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness: Dealing with Change / Workplace Effectiveness: Dealing with Change.iso / pc / Tools.Dxr / Internal_6_Sound Handlers.ls < prev    next >
Encoding:
Text File  |  1998-05-04  |  1.4 KB  |  80 lines
  1. global gClicked, currSndVolume
  2.  
  3. on getMemnames startMember, endMember, LibNumber
  4.   set nameList to []
  5.   repeat with X = startMember to endMember
  6.     add(nameList, the name of member X of castLib LibNumber)
  7.   end repeat
  8.   put nameList
  9. end
  10.  
  11. on keepLittleSounds
  12.   set vList to ["mouseDown.aif", "graph1.aif", "graph2.aif", "trashlid.aif"]
  13.   repeat with vSound in vList
  14.     set the purgePriority of member vSound to 1
  15.   end repeat
  16. end
  17.  
  18. on HandlePuppetSound stringParam
  19.   stopSounds()
  20.   puppetSound(string(stringParam))
  21.   updateStage()
  22.   repeat while soundBusy(1)
  23.     if the mouseDown then
  24.       puppetSound(0)
  25.     end if
  26.     updateStage()
  27.   end repeat
  28.   stopSounds()
  29.   updateStage()
  30. end
  31.  
  32. on HandlePuppetSoundNS stringParam
  33.   stopSounds()
  34.   puppetSound(string(stringParam))
  35.   updateStage()
  36.   DelaySome(15)
  37.   repeat while soundBusy(1)
  38.     updateStage()
  39.   end repeat
  40.   stopSounds()
  41.   updateStage()
  42. end
  43.  
  44. on soundClicker playsound
  45.   if soundBusy(1) then
  46.     puppetSound(0)
  47.   else
  48.     puppetSound(playsound)
  49.     set gClicked to the clickOn
  50.   end if
  51.   if the clickOn <> gClicked then
  52.     puppetSound(playsound)
  53.     set gClicked to the clickOn
  54.   end if
  55. end
  56.  
  57. on stopSounds
  58.   sound stop 1
  59.   sound stop 2
  60.   puppetSound(0)
  61.   updateStage()
  62. end
  63.  
  64. on stopSound2
  65.   if soundBusy(2) then
  66.     sound stop 2
  67.   end if
  68. end
  69.  
  70. on setSound whatLevel
  71.   set the soundLevel to whatLevel
  72. end
  73.  
  74. on DelaySome howLong
  75.   startTimer()
  76.   repeat while the timer < howLong
  77.     nothing()
  78.   end repeat
  79. end
  80.